home *** CD-ROM | disk | FTP | other *** search
/ Personal Computer World 2009 February / PCWFEB09.iso / Software / Linux / Kubuntu 8.10 / kubuntu-8.10-desktop-i386.iso / casper / filesystem.squashfs / usr / sbin / update-alternatives < prev    next >
Text File  |  2008-09-03  |  23KB  |  727 lines
  1. #!/usr/bin/perl --
  2.  
  3. BEGIN { # Work-around for bug #479711 in perl
  4.     $ENV{PERL_DL_NONLAZY} = 1;
  5. }
  6.  
  7. use strict;
  8. use warnings;
  9.  
  10. use POSIX qw(:errno_h);
  11. use Dpkg;
  12. use Dpkg::Gettext;
  13.  
  14. textdomain("dpkg");
  15.  
  16. # Global variables:
  17.  
  18. my $altdir = '/etc/alternatives';
  19. # FIXME: this should not override the previous assignment.
  20. $admindir = $admindir . '/alternatives';
  21.  
  22. my $verbosemode = 0;
  23.  
  24. my $action = '';      # Action to perform (display / install / remove / display / auto / config)
  25. my $mode = 'auto';    # Update mode for alternative (manual / auto)
  26. my $state;            # State of alternative:
  27.                       #   expected: alternative with highest priority is the active alternative
  28.                       #   expected-inprogress: busy selecting alternative with highest priority
  29.                       #   unexpected: alternative another alternative is active / error during readlink
  30.                       #   nonexistent: alternative-symlink does not exist
  31.  
  32. my %versionnum;       # Map from currently available versions into @versions and @priorities
  33. my @versions;         # List of available versions for alternative
  34. my @priorities;       # Map from @version-index to priority
  35.  
  36. my $best;
  37. my $bestpri;
  38. my $bestnum;
  39.  
  40. my $link;             # Link we are working with
  41. my $linkname;
  42.  
  43. my $alink;            # Alternative we are managing (ie the symlink we're making/removing) (install only)
  44. my $name;             # Name of the alternative (the symlink) we are processing
  45. my $apath;            # Path of alternative we are offering
  46. my $apriority;        # Priority of link (only when we are installing an alternative)
  47. my %aslavelink;
  48. my %aslavepath;
  49. my %aslavelinkcount;
  50.  
  51. my $slink;
  52. my $sname;
  53. my $spath;
  54. my @slavenames;       # List with names of slavelinks
  55. my %slavenum;         # Map from name of slavelink to slave-index (into @slavelinks)
  56. my @slavelinks;       # List of slavelinks (indexed by slave-index)
  57. my %slavepath;        # Map from (@version-index,slavename) to slave-path
  58. my %slavelinkcount;
  59.  
  60. sub version {
  61.     printf _g("Debian %s version %s.\n"), $progname, $version;
  62.  
  63.     printf _g("
  64. Copyright (C) 1995 Ian Jackson.
  65. Copyright (C) 2000-2002 Wichert Akkerman.");
  66.  
  67.     printf _g("
  68. This is free software; see the GNU General Public Licence version 2 or
  69. later for copying conditions. There is NO warranty.
  70. ");
  71. }
  72.  
  73. sub usage {
  74.     printf _g(
  75. "Usage: %s [<option> ...] <command>
  76.  
  77. Commands:
  78.   --install <link> <name> <path> <priority>
  79.     [--slave <link> <name> <path>] ...
  80.                            add a group of alternatives to the system.
  81.   --remove <name> <path>   remove <path> from the <name> group alternative.
  82.   --remove-all <name>      remove <name> group from the alternatives system.
  83.   --auto <name>            switch the master link <name> to automatic mode.
  84.   --display <name>         display information about the <name> group.
  85.   --list <name>            display all targets of the <name> group.
  86.   --config <name>          show alternatives for the <name> group and ask the
  87.                            user to select which one to use.
  88.   --set <name> <path>      set <path> as alternative for <name>.
  89.   --all                    call --config on all alternatives.
  90.  
  91. <link> is the symlink pointing to %s/<name>.
  92.   (e.g. /usr/bin/pager)
  93. <name> is the master name for this link group.
  94.   (e.g. pager)
  95. <path> is the location of one of the alternative target files.
  96.   (e.g. /usr/bin/less)
  97. <priority> is an integer; options with higher numbers have higher priority in
  98.   automatic mode.
  99.  
  100. Options:
  101.   --altdir <directory>     change the alternatives directory.
  102.   --admindir <directory>   change the administrative directory.
  103.   --verbose                verbose operation, more output.
  104.   --quiet                  quiet operation, minimal output.
  105.   --help                   show this help message.
  106.   --version                show the version.
  107. "), $progname, $altdir;
  108. }
  109.  
  110. sub quit
  111. {
  112.     printf STDERR "%s: %s\n", $progname, "@_";
  113.     exit(2);
  114. }
  115.  
  116. sub badusage
  117. {
  118.     printf STDERR "%s: %s\n\n", $progname, "@_";
  119.     &usage;
  120.     exit(2);
  121. }
  122.  
  123. sub read_link_group
  124. {
  125.     if (open(AF, "$admindir/$name")) {
  126.     $mode = gl("update_mode");
  127.     $mode eq 'auto' || $mode eq 'manual' || badfmt(_g("invalid update mode"));
  128.     $link = gl("link");
  129.     while (($sname = gl("sname")) ne '') {
  130.         push(@slavenames, $sname);
  131.         defined($slavenum{$sname}) && badfmt(sprintf(_g("duplicate slave %s"), $sname));
  132.         $slavenum{$sname} = $#slavenames;
  133.         $slink = gl("slink");
  134.         $slink eq $link && badfmt(sprintf(_g("slave link same as main link %s"), $link));
  135.         $slavelinkcount{$slink}++ && badfmt(sprintf(_g("duplicate slave link %s"), $slink));
  136.         push(@slavelinks, $slink);
  137.     }
  138.     while (($version = gl("version")) ne '') {
  139.         defined($versionnum{$version}) && badfmt(sprintf(_g("duplicate path %s"), $version));
  140.         if (-r $version) {
  141.         push(@versions, $version);
  142.         my $i;
  143.         $versionnum{$version} = $i = $#versions;
  144.         my $priority = gl("priority");
  145.         $priority =~ m/^[-+]?\d+$/ || badfmt(sprintf(_g("priority %s %s"), $version, $priority));
  146.         $priorities[$i] = $priority;
  147.         for (my $j = 0; $j <= $#slavenames; $j++) {
  148.             $slavepath{$i,$j} = gl("spath");
  149.         }
  150.         } else {
  151.         # File not found - remove
  152.         pr(sprintf(_g("Alternative for %s points to %s - which wasn't found.  Removing from list of alternatives."), $name, $version))
  153.             if $verbosemode > 0;
  154.         gl("priority");
  155.         for (my $j = 0; $j <= $#slavenames; $j++) {
  156.             gl("spath");
  157.         }
  158.         }
  159.     }
  160.     close(AF);
  161.     return 0;
  162.     } elsif ($! != ENOENT) {
  163.     quit(sprintf(_g("unable to open %s: %s"), "$admindir/$name", $!));
  164.     } elsif ($! == ENOENT) {
  165.     return 1;
  166.     }
  167. }
  168.  
  169. sub fill_missing_slavepaths()
  170. {
  171.     for (my $j = 0; $j <= $#slavenames; $j++) {
  172.     for (my $i = 0; $i <= $#versions; $i++) {
  173.         $slavepath{$i,$j} ||= '';
  174.     }
  175.     }
  176. }
  177.  
  178. sub find_best_version
  179. {
  180.     $best = '';
  181.     for (my $i = 0; $i <= $#versions; $i++) {
  182.     if ($best eq '' || $priorities[$i] > $bestpri) {
  183.         $best = $versions[$i];
  184.         $bestpri = $priorities[$i];
  185.         $bestnum = $i;
  186.     }
  187.     }
  188. }
  189.  
  190. sub display_link_group
  191. {
  192.     pr(sprintf(_g("%s - status is %s."), $name, $mode));
  193.     $linkname = readlink("$altdir/$name");
  194.  
  195.     if (defined($linkname)) {
  196.     pr(sprintf(_g(" link currently points to %s"), $linkname));
  197.     } elsif ($! == ENOENT) {
  198.     pr(_g(" link currently absent"));
  199.     } else {
  200.     pr(sprintf(_g(" link unreadable - %s"), $!));
  201.     }
  202.  
  203.     for (my $i = 0; $i <= $#versions; $i++) {
  204.     pr(sprintf(_g("%s - priority %s"), $versions[$i], $priorities[$i]));
  205.     for (my $j = 0; $j <= $#slavenames; $j++) {
  206.         my $tspath = $slavepath{$i, $j};
  207.         next unless length($tspath);
  208.         pr(sprintf(_g(" slave %s: %s"), $slavenames[$j], $tspath));
  209.     }
  210.     }
  211.  
  212.     if ($best eq '') {
  213.     pr(_g("No versions available."));
  214.     } else {
  215.     pr(sprintf(_g("Current \`best' version is %s."), $best));
  216.     }
  217. }
  218.  
  219. sub list_link_group
  220. {
  221.     for (my $i = 0; $i <= $#versions; $i++) {
  222.     pr("$versions[$i]");
  223.     }
  224. }
  225.  
  226. sub checked_alternative($$$)
  227. {
  228.     my ($name, $link, $path) = @_;
  229.  
  230.     $linkname = readlink($link);
  231.     if (!defined($linkname) && $! != ENOENT) {
  232.     pr(sprintf(_g("warning: %s is supposed to be a symlink to %s, \n".
  233.                   "or nonexistent; however, readlink failed: %s"),
  234.                $link, "$altdir/$name", $!))
  235.         if $verbosemode > 0;
  236.     } elsif (!defined($linkname) ||
  237.             (defined($linkname) && $linkname ne "$altdir/$name")) {
  238.     checked_rm("$link.dpkg-tmp");
  239.     checked_symlink("$altdir/$name", "$link.dpkg-tmp");
  240.     checked_mv("$link.dpkg-tmp", $link);
  241.     }
  242.     $linkname = readlink("$altdir/$name");
  243.     if (defined($linkname) && $linkname eq $path) {
  244.     pr(sprintf(_g("Leaving %s (%s) pointing to %s."), $name, $link, $path))
  245.         if $verbosemode > 0;
  246.     } else {
  247.     pr(sprintf(_g("Updating %s (%s) to point to %s."), $name, $link, $path))
  248.         if $verbosemode > 0;
  249.     }
  250. }
  251.  
  252. sub set_links($$)
  253. {
  254.     my ($spath, $preferred) = (@_);
  255.  
  256.     printf STDOUT _g("Using '%s' to provide '%s'.") . "\n", $spath, $name;
  257.     checked_symlink("$spath","$altdir/$name.dpkg-tmp");
  258.     checked_mv("$altdir/$name.dpkg-tmp", "$altdir/$name");
  259.  
  260.     # Link slaves...
  261.     for (my $slnum = 0; $slnum < @slavenames; $slnum++) {
  262.     my $slave = $slavenames[$slnum];
  263.     if ($slavepath{$preferred, $slnum} ne '') {
  264.         checked_alternative($slave, $slavelinks[$slnum],
  265.                       $slavepath{$preferred, $slnum});
  266.         checked_symlink($slavepath{$preferred, $slnum},
  267.                         "$altdir/$slave.dpkg-tmp");
  268.         checked_mv("$altdir/$slave.dpkg-tmp", "$altdir/$slave");
  269.     } else {
  270.         pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $slave,
  271.                    $slavelinks[$slnum], $versions[$preferred]))
  272.             if $verbosemode > 0;
  273.         checked_rm("$altdir/$slave");
  274.     }
  275.     }
  276. }
  277.  
  278. sub check_many_actions()
  279. {
  280.     return unless $action;
  281.     badusage(sprintf(_g("two commands specified: %s and --%s"), $_, $action));
  282. }
  283.  
  284. sub checked_rm($)
  285. {
  286.     my ($f) = @_;
  287.     unlink($f) || $! == ENOENT ||
  288.         quit(sprintf(_g("unable to remove %s: %s"), $f, $!));
  289. }
  290.  
  291. #
  292. # Main program
  293. #
  294.  
  295. $| = 1;
  296.  
  297. while (@ARGV) {
  298.     $_= shift(@ARGV);
  299.     last if m/^--$/;
  300.     if (!m/^--/) {
  301.         &quit(sprintf(_g("unknown argument \`%s'"), $_));
  302.     } elsif (m/^--help$/) {
  303.         &usage; exit(0);
  304.     } elsif (m/^--version$/) {
  305.         &version; exit(0);
  306.     } elsif (m/^--verbose$/) {
  307.         $verbosemode= +1;
  308.     } elsif (m/^--quiet$/) {
  309.         $verbosemode= -1;
  310.     } elsif (m/^--install$/) {
  311.     check_many_actions();
  312.         @ARGV >= 4 || &badusage(_g("--install needs <link> <name> <path> <priority>"));
  313.         ($alink,$name,$apath,$apriority,@ARGV) = @ARGV;
  314.         $apriority =~ m/^[-+]?\d+/ || &badusage(_g("priority must be an integer"));
  315.     $action = 'install';
  316.     } elsif (m/^--(remove|set)$/) {
  317.     check_many_actions();
  318.         @ARGV >= 2 || &badusage(sprintf(_g("--%s needs <name> <path>"), $1));
  319.         ($name,$apath,@ARGV) = @ARGV;
  320.     $action = $1;
  321.     } elsif (m/^--(display|auto|config|list|remove-all)$/) {
  322.     check_many_actions();
  323.         @ARGV || &badusage(sprintf(_g("--%s needs <name>"), $1));
  324.     $action = $1;
  325.         $name= shift(@ARGV);
  326.     } elsif (m/^--slave$/) {
  327.         @ARGV >= 3 || &badusage(_g("--slave needs <link> <name> <path>"));
  328.         ($slink,$sname,$spath,@ARGV) = @ARGV;
  329.         defined($aslavelink{$sname}) && &badusage(sprintf(_g("slave name %s duplicated"), $sname));
  330.         $aslavelinkcount{$slink}++ && &badusage(sprintf(_g("slave link %s duplicated"), $slink));
  331.         $aslavelink{$sname}= $slink;
  332.         $aslavepath{$sname}= $spath;
  333.     } elsif (m/^--altdir$/) {
  334.         @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "altdir"));
  335.         $altdir= shift(@ARGV);
  336.     } elsif (m/^--admindir$/) {
  337.         @ARGV || &badusage(sprintf(_g("--%s needs a <directory> argument"), "admindir"));
  338.         $admindir= shift(@ARGV);
  339.     } elsif (m/^--all$/) {
  340.     $action = 'all';
  341.     } else {
  342.         &badusage(sprintf(_g("unknown option \`%s'"), $_));
  343.     }
  344. }
  345.  
  346. defined($name) && defined($aslavelink{$name}) &&
  347.   badusage(sprintf(_g("name %s is both primary and slave"), $name));
  348. defined($alink) && $aslavelinkcount{$alink} &&
  349.   badusage(sprintf(_g("link %s is both primary and slave"), $alink));
  350.  
  351. $action ||
  352.   badusage(_g("need --display, --config, --set, --install, --remove, --all, --remove-all or --auto"));
  353. $action eq 'install' || !%aslavelink ||
  354.   badusage(_g("--slave only allowed with --install"));
  355.  
  356. if ($action eq 'all') {
  357.     &config_all();
  358.     exit 0;
  359. }
  360.  
  361. if (read_link_group()) {
  362.     if ($action eq 'remove') {
  363.     # FIXME: Be consistent for now with the case when we try to remove a
  364.     # non-existing path from an existing link group file.
  365.     exit 0;
  366.     } elsif ($action ne 'install') {
  367.     pr(sprintf(_g("No alternatives for %s."), $name));
  368.     exit 1;
  369.     }
  370. }
  371.  
  372. if ($action eq 'display') {
  373.     find_best_version();
  374.     display_link_group();
  375.     exit 0;
  376. }
  377.  
  378. if ($action eq 'list') {
  379.     list_link_group();
  380.     exit 0;
  381. }
  382.  
  383. find_best_version();
  384.  
  385. if ($action eq 'config') {
  386.     config_alternatives($name);
  387. }
  388.  
  389. if ($action eq 'set') {
  390.     set_alternatives($name);
  391. }
  392.  
  393. if (defined($linkname= readlink("$altdir/$name"))) {
  394.     if ($linkname eq $best) {
  395.         $state= 'expected';
  396.     } elsif (defined(readlink("$altdir/$name.dpkg-tmp"))) {
  397.         $state= 'expected-inprogress';
  398.     } else {
  399.         $state= 'unexpected';
  400.     }
  401. } elsif ($! == &ENOENT) {
  402.     $state= 'nonexistent';
  403. } else {
  404.     $state= 'unexpected';
  405. }
  406.  
  407. # Possible values for:
  408. #   $mode        manual, auto
  409. #   $state       expected, expected-inprogress, unexpected, nonexistent
  410. #   $action      auto, install, remove, remove-all
  411. # all independent
  412.  
  413. if ($action eq 'auto') {
  414.     &pr(sprintf(_g("Setting up automatic selection of %s."), $name))
  415.       if $verbosemode > 0;
  416.     checked_rm("$altdir/$name.dpkg-tmp");
  417.     checked_rm("$altdir/$name");
  418.     $state= 'nonexistent';
  419.     $mode = 'auto';
  420. }
  421.  
  422. #   $mode        manual, auto
  423. #   $state       expected, expected-inprogress, unexpected, nonexistent
  424. #   $action      auto, install, remove
  425. # action=auto <=> state=nonexistent
  426.  
  427. if ($state eq 'unexpected' && $mode eq 'auto') {
  428.     &pr(sprintf(_g("%s has been changed (manually or by a script).\n".
  429.                    "Switching to manual updates only."), "$altdir/$name"))
  430.       if $verbosemode > 0;
  431.     $mode = 'manual';
  432. }
  433.  
  434. #   $mode        manual, auto
  435. #   $state       expected, expected-inprogress, unexpected, nonexistent
  436. #   $action      auto, install, remove
  437. # action=auto <=> state=nonexistent
  438. # state=unexpected => mode=manual
  439.  
  440. &pr(sprintf(_g("Checking available versions of %s, updating links in %s ...\n".
  441.     "(You may modify the symlinks there yourself if desired - see \`man ln'.)"), $name, $altdir))
  442.   if $verbosemode > 0;
  443.  
  444. if ($action eq 'install') {
  445.     if (defined($link) && $link ne $alink) {
  446.         &pr(sprintf(_g("Renaming %s link from %s to %s."), $name, $link, $alink))
  447.           if $verbosemode > 0;
  448.         rename_mv($link,$alink) || $! == &ENOENT ||
  449.             &quit(sprintf(_g("unable to rename %s to %s: %s"), $link, $alink, $!));
  450.     }
  451.     $link= $alink;
  452.     my $i;
  453.     if (!defined($i= $versionnum{$apath})) {
  454.         push(@versions,$apath);
  455.         $versionnum{$apath}= $i= $#versions;
  456.     }
  457.     $priorities[$i]= $apriority;
  458.     for $sname (keys %aslavelink) {
  459.         my $j;
  460.         if (!defined($j= $slavenum{$sname})) {
  461.             push(@slavenames,$sname);
  462.             $slavenum{$sname}= $j= $#slavenames;
  463.         }
  464.         my $oldslavelink = $slavelinks[$j];
  465.         my $newslavelink = $aslavelink{$sname};
  466.     $slavelinkcount{$oldslavelink}-- if defined($oldslavelink);
  467.         $slavelinkcount{$newslavelink}++ &&
  468.             &quit(sprintf(_g("slave link name %s duplicated"), $newslavelink));
  469.     if (defined($oldslavelink) && $newslavelink ne $oldslavelink) {
  470.             &pr(sprintf(_g("Renaming %s slave link from %s to %s."), $sname, $oldslavelink, $newslavelink))
  471.               if $verbosemode > 0;
  472.             rename_mv($oldslavelink,$newslavelink) || $! == &ENOENT ||
  473.                 &quit(sprintf(_g("unable to rename %s to %s: %s"), $oldslavelink, $newslavelink, $!));
  474.         }
  475.         $slavelinks[$j]= $newslavelink;
  476.     }
  477.     for (my $j = 0; $j <= $#slavenames; $j++) {
  478.         $slavepath{$i,$j}= $aslavepath{$slavenames[$j]};
  479.     }
  480.  
  481.     fill_missing_slavepaths();
  482. }
  483.  
  484. if ($action eq 'remove') {
  485.     my $hits = 0;
  486.     if ($mode eq "manual" and $state ne "expected" and (map { $hits += $apath eq $_ } @versions) and $hits and $linkname eq $apath) {
  487.     &pr(_g("Removing manually selected alternative - switching to auto mode"));
  488.     $mode = "auto";
  489.     }
  490.     if (defined(my $i = $versionnum{$apath})) {
  491.         my $k = $#versions;
  492.         $versionnum{$versions[$k]}= $i;
  493.         delete $versionnum{$versions[$i]};
  494.         $versions[$i]= $versions[$k]; $#versions--;
  495.         $priorities[$i]= $priorities[$k]; $#priorities--;
  496.         for (my $j = 0; $j <= $#slavenames; $j++) {
  497.             $slavepath{$i,$j}= $slavepath{$k,$j};
  498.             delete $slavepath{$k,$j};
  499.         }
  500.     } else {
  501.         &pr(sprintf(_g("Alternative %s for %s not registered, not removing."), $apath, $name))
  502.           if $verbosemode > 0;
  503.     }
  504. }
  505.  
  506. if ($action eq 'remove-all') {
  507.    $mode = "auto";
  508.    my $k = $#versions;
  509.    for (my $i = 0; $i <= $#versions; $i++) {
  510.         $k--;
  511.         delete $versionnum{$versions[$i]};
  512.     $#priorities--;
  513.         for (my $j = 0; $j <= $#slavenames; $j++) {
  514.             $slavepath{$i,$j}= $slavepath{$k,$j};
  515.             delete $slavepath{$k,$j};
  516.         }
  517.       }
  518.    $#versions=$k;
  519.  }
  520.  
  521.  
  522. for (my $j = 0; $j <= $#slavenames; $j++) {
  523.     my $i;
  524.     for ($i = 0; $i <= $#versions; $i++) {
  525.         last if $slavepath{$i,$j} ne '';
  526.     }
  527.     if ($i > $#versions) {
  528.         &pr(sprintf(_g("Discarding obsolete slave link %s (%s)."), $slavenames[$j], $slavelinks[$j]))
  529.           if $verbosemode > 0;
  530.         checked_rm("$altdir/$slavenames[$j]");
  531.         checked_rm($slavelinks[$j]);
  532.         my $k = $#slavenames;
  533.         $slavenum{$slavenames[$k]}= $j;
  534.         delete $slavenum{$slavenames[$j]};
  535.         $slavelinkcount{$slavelinks[$j]}--;
  536.         $slavenames[$j]= $slavenames[$k]; $#slavenames--;
  537.         $slavelinks[$j]= $slavelinks[$k]; $#slavelinks--;
  538.         for (my $i = 0; $i <= $#versions; $i++) {
  539.             $slavepath{$i,$j}= $slavepath{$i,$k};
  540.             delete $slavepath{$i,$k};
  541.         }
  542.         $j--;
  543.     }
  544. }
  545.         
  546. if ($mode eq 'manual') {
  547.     &pr(sprintf(_g("Automatic updates of %s are disabled, leaving it alone."), "$altdir/$name"))
  548.       if $verbosemode > 0;
  549.     &pr(sprintf(_g("To return to automatic updates use \`update-alternatives --auto %s'."), $name))
  550.       if $verbosemode > 0;
  551. } else {
  552.     if ($state eq 'expected-inprogress') {
  553.         &pr(sprintf(_g("Recovering from previous failed update of %s ..."), $name));
  554.     checked_mv("$altdir/$name.dpkg-tmp", "$altdir/$name");
  555.         $state= 'expected';
  556.     }
  557. }
  558.  
  559. #   $mode        manual, auto
  560. #   $state       expected, expected-inprogress, unexpected, nonexistent
  561. #   $action      auto, install, remove
  562. # action=auto <=> state=nonexistent
  563. # state=unexpected => mode=manual
  564. # mode=auto => state!=expected-inprogress && state!=unexpected
  565.  
  566. open(AF,">$admindir/$name.dpkg-new") ||
  567.     &quit(sprintf(_g("unable to open %s for write: %s"), "$admindir/$name.dpkg-new", $!));
  568. paf($mode);
  569. &paf($link);
  570. for (my $j = 0; $j <= $#slavenames; $j++) {
  571.     &paf($slavenames[$j]);
  572.     &paf($slavelinks[$j]);
  573. }
  574.  
  575. find_best_version();
  576.  
  577. &paf('');
  578. for (my $i = 0; $i <= $#versions; $i++) {
  579.     &paf($versions[$i]);
  580.     &paf($priorities[$i]);
  581.     for (my $j = 0; $j <= $#slavenames; $j++) {
  582.         &paf($slavepath{$i,$j});
  583.     }
  584. }
  585. &paf('');
  586. close(AF) || &quit(sprintf(_g("unable to close %s: %s"), "$admindir/$name.dpkg-new", $!));
  587.  
  588. if ($mode eq 'auto') {
  589.     if ($best eq '') {
  590.         &pr(sprintf(_g("Last package providing %s (%s) removed, deleting it."), $name, $link))
  591.           if $verbosemode > 0;
  592.         checked_rm("$altdir/$name");
  593.         checked_rm("$link");
  594.         checked_rm("$admindir/$name.dpkg-new");
  595.         checked_rm("$admindir/$name");
  596.         exit(0);
  597.     } else {
  598.     checked_alternative($name, $link, $best);
  599.         checked_rm("$altdir/$name.dpkg-tmp");
  600.         symlink($best,"$altdir/$name.dpkg-tmp");
  601.     }
  602. }
  603.  
  604. checked_mv("$admindir/$name.dpkg-new", "$admindir/$name");
  605.  
  606. if ($mode eq 'auto') {
  607.     checked_mv("$altdir/$name.dpkg-tmp", "$altdir/$name");
  608.     for (my $j = 0; $j <= $#slavenames; $j++) {
  609.         $sname= $slavenames[$j];
  610.         $slink= $slavelinks[$j];
  611.         $spath= $slavepath{$bestnum,$j};
  612.         checked_rm("$altdir/$sname.dpkg-tmp");
  613.         if ($spath eq '') {
  614.             &pr(sprintf(_g("Removing %s (%s), not appropriate with %s."), $sname, $slink, $best))
  615.               if $verbosemode > 0;
  616.             checked_rm("$altdir/$sname");
  617.             checked_rm("$slink");
  618.         } else {
  619.         checked_alternative($sname, $slink, $spath);
  620.         checked_symlink("$spath", "$altdir/$sname.dpkg-tmp");
  621.         checked_mv("$altdir/$sname.dpkg-tmp", "$altdir/$sname");
  622.         }
  623.     }
  624. }
  625.  
  626. sub config_message {
  627.     if ($#versions < 0) {
  628.     print "\n";
  629.     printf _g("There is no program which provides %s.\n".
  630.               "Nothing to configure.\n"), $name;
  631.     return -1;
  632.     }
  633.     if ($#versions == 0) {
  634.     print "\n";
  635.     printf _g("There is only 1 program which provides %s\n".
  636.               "(%s). Nothing to configure.\n"), $name, $versions[0];
  637.     return -1;
  638.     }
  639.     print STDOUT "\n";
  640.     printf(STDOUT _g("There are %s alternatives which provide \`%s'.\n\n".
  641.                      "  Selection    Alternative\n".
  642.                      "-----------------------------------------------\n"),
  643.                   $#versions+1, $name);
  644.     for (my $i = 0; $i <= $#versions; $i++) {
  645.     printf(STDOUT "%s%s %8s    %s\n",
  646.         (readlink("$altdir/$name") eq $versions[$i]) ? '*' : ' ',
  647.         ($best eq $versions[$i]) ? '+' : ' ',
  648.         $i+1, $versions[$i]);
  649.     }
  650.     printf(STDOUT "\n"._g("Press enter to keep the default[*], or type selection number: "));
  651.     return 0;
  652. }
  653.  
  654. sub config_alternatives {
  655.     my $preferred;
  656.     do {
  657.     return if config_message() < 0;
  658.     $preferred=<STDIN>;
  659.     chop($preferred);
  660.     } until $preferred eq '' || $preferred>=1 && $preferred<=$#versions+1 &&
  661.     ($preferred =~ m/[0-9]*/);
  662.     if ($preferred ne '') {
  663.     $mode = "manual";
  664.     $preferred--;
  665.     my $spath = $versions[$preferred];
  666.  
  667.     set_links($spath, $preferred);
  668.     }
  669. }
  670.  
  671. sub set_alternatives {
  672.    $mode = "manual";
  673.    # Get prefered number
  674.    my $preferred = -1;
  675.    for (my $i = 0; $i <= $#versions; $i++) {
  676.      if($versions[$i] eq $apath) {
  677.        $preferred = $i;
  678.        last;
  679.      }
  680.    }
  681.    if($preferred == -1){
  682.      &quit(sprintf(_g("Cannot find alternative `%s'."), $apath)."\n")
  683.    }
  684.    set_links($apath, $preferred);
  685. }
  686.  
  687. sub pr { print(STDOUT "@_\n") || &quit(sprintf(_g("error writing stdout: %s"), $!)); }
  688. sub paf {
  689.     $_[0] =~ m/\n/ && &quit(sprintf(_g("newlines prohibited in update-alternatives files (%s)"), $_[0]));
  690.     print(AF "$_[0]\n") || &quit(sprintf(_g("error writing stdout: %s"), $!));
  691. }
  692. sub gl {
  693.     $!=0; $_= <AF>;
  694.     defined($_) || quit(sprintf(_g("error or eof reading %s for %s (%s)"),
  695.                                 "$admindir/$name", $_[0], $!));
  696.     s/\n$// || &badfmt(sprintf(_g("missing newline after %s"), $_[0]));
  697.     $_;
  698. }
  699. sub badfmt {
  700.     &quit(sprintf(_g("internal error: %s corrupt: %s"), "$admindir/$name", $_[0]));
  701. }
  702. sub rename_mv {
  703.     return (rename($_[0], $_[1]) || (system(("mv", $_[0], $_[1])) == 0));
  704. }
  705. sub checked_symlink {
  706.     my ($filename, $linkname) = @_;
  707.     symlink($filename, $linkname) ||
  708.     &quit(sprintf(_g("unable to make %s a symlink to %s: %s"), $linkname, $filename, $!));
  709. }
  710. sub checked_mv {
  711.     my ($source, $dest) = @_;
  712.     rename_mv($source, $dest) ||
  713.     &quit(sprintf(_g("unable to install %s as %s: %s"), $source, $dest, $!));
  714. }
  715. sub config_all {
  716.     opendir ADMINDIR, $admindir or die sprintf(_g("Serious problem: %s"), $!);
  717.     my @filenames = grep !/^\.\.?$/, readdir ADMINDIR;
  718.     close ADMINDIR;
  719.     foreach my $name (@filenames) {
  720.         system "$0 --config $name";
  721.         exit $? if $?;
  722.     }
  723. }
  724. exit(0);
  725.  
  726. # vim: nowrap ts=8 sw=4
  727.